﻿Public Class Searcher
    Public Shared Sub Search(ByVal sernum As String, ByVal comname As String, ByVal uname As String, ByVal dom As String, ByVal RDP As Boolean, ByVal SeaType As String)
        Dim bolcomname As Boolean
        Dim bolusername As Boolean
        Dim bolSerialNumber As Boolean
        If comname <> "" Then
            bolcomname = True
            GoTo runseach
        End If
        If uname <> "" Then
            bolusername = True
            GoTo runseach
        End If
        If sernum <> "" Then
            bolSerialNumber = True
            GoTo runseach
        End If

runseach:
        If bolcomname Then
            GetSMSProvideData.Getcomsys(ConnectSmsProvider.Connect, "Name = '" & comname & "'", RDP)
        End If
        If bolusername Then
            CheckUserName.Checkusername(ConnectSmsProvider.Connect, uname, dom, True, RDP, SeaType)
        End If
        If bolSerialNumber Then
            CheckSerialNum.Checkserialnum(ConnectSmsProvider.Connect, sernum, RDP)
        End If
    End Sub
End Class
